(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     18735,        446]
NotebookOptionsPosition[     17971,        414]
NotebookOutlinePosition[     18310,        429]
CellTagsIndexPosition[     18267,        426]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"ER", "[", "k_", "]"}], ":=", 
  RowBox[{
   RowBox[{"EllipticK", "[", 
    RowBox[{"k", "*", "k"}], "]"}], "/", 
   RowBox[{"EllipticK", "[", 
    RowBox[{"1", "-", 
     RowBox[{"k", "*", "k"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"ER", "[", 
    RowBox[{"999", "/", "1000"}], "]"}], ",", "16"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5687084372112226`*^9, 3.568708462583129*^9}, {
  3.568712227637228*^9, 3.568712262659088*^9}, {3.5687126739080877`*^9, 
  3.568712678570991*^9}, {3.5687129359905767`*^9, 3.568712982072586*^9}}],

Cell[BoxData["2.86055438243686323732070592454991597357`16."], "Output",
 CellChangeTimes->{{3.568712953330378*^9, 3.568712983036561*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ER", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5687084676920137`*^9, 3.568708477424789*^9}, {
  3.56870869006325*^9, 3.568708696242856*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVy3k81AkDx3FFGSkiCZHkCAmpKGW/lbZCKQmJyBGpHFG5Qiy6XJWVqxxR
ZDXKUK6IiRwxGEe5J8kx8xubMYwjzz5/fF7vvz4Kjp6nLy7n4+PL+a//a3xx
tLVqzOKPW5Q5AdX3FAgYyngNSO/CKQPB2r1+VOxMS0wtlD4MaxObMPGVtRiW
VQr1VTHFsSpVMdnVdTD50vX2qfQZ9Drw1E076qAUJZe9JG+NKGFrX/HAz1gw
dnrioGIHqa4De84J1WM8nE51SHDA28eWFfWR9bBynql4JO2MX73MpMCZelAN
Zd7VpLogos2qSc2uAdqKBgUceTccTI+9UVHeABIjLNNSxQOe/E9TW10aUTrY
9qXmjBda3HU+aVEa4XXK2dg24RqYvTEkm8VG9GndMYyWvo6U9E4riYgmxKdJ
VSnb3IBDmoePG7UJxqKv9n9IvYmdnQJXFJd9QTHRtJst7w9Li8qpCp8viMkX
VzVTCcY6YT//F4ea8adcVtaYawi+0fsMHng3I7g2ee3HM7dxl1ND35TRjF26
GtHWCaGQ233T9tVcM9LXn4y8Lx0O4cs1zUYZLQj88oRqWRqO3jDb7eTPLbCM
GFyuaBOBAyd1G/5kt2D19LWQstRIOPpelJGSo8GPHu/HlL8H/zDdjTwnGswe
f7tsqhKDWX++fQ+HadAwUcyVqYsBv3HDXMoUDST+qz9HXGNRNNYt6rO8FfYl
v99UnomDdnnYyWj5VqxXi9M8m/AQSttai55ZtSKUVLj1nnQ8VD74iZyvaoX6
0Yd333rFY5nzEdPhL61oi/Ac66mLxwcf94QjPa1Q4tfI07z5NzokL19Kn25F
7WKWJr0tATH21eU1qm1YPZWwWz4qCRulyF0h99qQ2BdgWPT7GbbWCmrJ723H
QVnrrH6LNGiqO//tZdiO8XN6K0j5abDY/MOr4EQ7NjH9nfK3p2Nmhwl9waEd
nm66yny96Tg9emCYdq8d4s7knOw9mWCksKWyOttx1jqDPPlvFk6SgtfFutDB
7jmzKlMmG+lZPNEUDzoi7UgXzQ2z0aLgz3l6k45CJ0+Z4vhsFCccIO5G0iHi
YRARqPcCjwPzadxsOj6FfT23MuglZH0HGEbf6dD5R2ylLOkV7L/tNLx2tgPC
S6G2RzeRof/ZzrZSuxOJblZ2GkfI+M2JoKzR64QSXeOCmAcZNXU2eVYGnfgj
t8upp4IMT+s9qf1GnSjJTSh6p1mA56eC/y5x7ATLnFlu0lyAE6X6nXmPO2GR
86TRZ81brP66y7zsVyeUzYjRmgcUgHLFQuhlF3yb9yKRU4KiOFn7QuGv2EAR
61+2rBKnv/nm8ut/QzHDsKllfzV23Mxd4XW5B9WXn260ZlIheJUpsC+8F9Mq
BqL57nUw2id4uiSkD8t5eWs3KjdgjUSKkuSdfuguXSg2f90EwV0dJcdvDqAp
fFdzrXoLDpyoYIlrDkI+boKXS9CQI/9ixWDOICZmBvo7tNtgpt5aCZkhZI2X
NYjEtGN0+9U39vFDEJF7yR4epsPaWFdyXpiBKLcil3SlTtQRjb7/BDLAPZA3
fCmkC8lGIsscpxm4rkOlSNZ0Y/WtkLgB1+8YeE190KrwDfqRkaUmP75j/jI9
RS2gB5NU96ndjsPYdlDwt0tZL2rlw2MLuodxNFPB9c2GftRfqKDl2fyAr5z9
liHbAbQ8EVUu7f4BDaaFcNeJQVBeSxWZWo5gnegkiTo3CHX5xXprxggEKlPI
iqlDSJNdEpJy+4kru8q+CpkwoKtj/lKFbxR5Ro7pH7gMEAFRhbuTRzE9IbN2
JOE7pOPKr5RpjaHI/Ch//OFh/DQS/0vq6xhCjkWkUUaGsW/GwWIoeBwKfcbd
zyN+QO9I1e4ktQno64XHS+uMgGt4UuEsawK2m1p4y9pHEPQwZYcpmYnphmiG
V+hP2JxPYrJjWUgUsLt+WmkUuRLe2oHXCKzrL8pcTh0FSbdoesMFNlYEhZ7Z
e20Mmk6F0hoGk+DLtSMzxMfx4I2ClkHzJLyTydHi1eMoLbB6/zjoX1Rsu0sS
85hAUY7M7q0Hf0HM2FsjTISJkk8WQYrrppD+UVRYX4wJvw1J93iSU9Demz/2
7zom+pVS97TJTMFUdfSFgzQTZb8yox9smcL9lXYKB5WYMNpCvrVJZwoCNUaS
fPpMHF01QftsNgXuPgW+4ItMSN1RUzn+eAq922nt/uVMaNRIVkhs5iBtQiyI
v5IJQWdhH1clDhxzzVWiP/736/tFVKhyMKbU5Zdey8TcuWG6zw4OuBv75epo
TLAejVGEDDkQW8V0lfjBxMfNj2wGXDg4MiK48HoNCxNfe/Vs33AglGWUvWct
CxdSgz8oF3PQ5PDAtFqcBfc0+sWpUg7M+0QyOjaw8MjCcWcKlYML9PVHFhRY
UCu7/0Sum4PAasU4I10WtGoVd3CWOCh4BqVhOxailhxCtphPYypgStDBgQWT
WeKu89lp6Fq9nOhzYuF3VlZM3vlplImKFnZdYmEoo4By7NI0am/3H2z0ZiF9
xOlWVdA0ehyD7N9GslDGr8h4nTuNlVvLkm+/ZiGmNLSdvoILI37P4MUCFsJl
Ozc1CnMRNbDFMaCQBdqnO/Q6MS7EEu+rXX/PgsYhSjFdjgtZoXPvXatZWHon
MWKgy4XOxGyHaScL12UVRW0ucXGerCsm95uF/fVPnuxq46L43KwIjY/Aba/Z
tflfuRBZWbr6L34CXlWi6VpDXFTZGpDGSAQCr55yN5/kYsuqw0uUdQRGvJ/2
S4nOYMTZjHVcjcDLwcywItMZeMhcrb91hsDRuXGOctcMaj9tr9OyIuC9j71j
8+AM5K+xqQxrAoas3uVqYzOg1XlXHbMncGfPoLzr/Ax0bvi/k7hMIKBD813y
5lnMtERm/xNCQEMzY7+IxyxuR2SE9r4ikK/ln9EnycMaX0Fjh3wCMjp8B2wU
eEi+5C4+QiYwH6DeyNzGQ6HJ3udsCgGSp9i34wd5GBFrpS6vJJA5eShdyJ0H
k2d8JLV2Ag05DZ7Vn3nojnWh5XcQqC+Jrn5B58E5tClRp5vANbnJoqxBHoKd
E9X29xEYj5cCe5aHAnVtk5M/CWiNNVEb1ecg+c4+5sY8Ab+w5g6J+Dk8z/lk
ObdIQMqtNaA5Yw7aydvkQ/jYqHZLO/mKPAejoBny3RVsbLDZ9kdj4xxuGca2
poiywf/Ryax2xTwYLR8kqhXZ+PDXLQ/L0Hl4flTqO6LChunV5qy4h/NYeHs/
u1GVDV9/0cq5jHmsT7DU7djOhsbNLYpONfM4ZktYjeqx0Wg6mfSCtID8UbkU
keNszAlUDmk/W8DdpxEX+k3ZWBV3+MZ5ygKcT7OUX5uxEa7qNfq9YQGy5eUF
J6zYMDnVpb6Kt4D7sTa1UY5sLMoyeiTPLcLlcM0D24tsRM+vNrvqs4hDPHUz
jUtsnEgK8tKLXsQQ4ydfhBsbzcb65uNJi/gfidE6RA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 1}, {0., 1.850076985462397}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5687086985632563`*^9, 3.5687122658584948`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{"ER", "[", "x", "]"}], ",", "16"}], "]"}], ",", 
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{"EllipticK", "[", 
         RowBox[{"x", " ", "x"}], "]"}], ",", "6"}], "]"}], ",", 
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{"EllipticK", "[", 
         RowBox[{"1", "-", 
          RowBox[{"x", " ", "x"}]}], "]"}], ",", "6"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"9", "/", "10"}], ",", 
      RowBox[{"99", "/", "100"}], ",", 
      RowBox[{"1", "/", "100"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.568708711767743*^9, 3.568708775795815*^9}, {
   3.568708906736864*^9, 3.568709034515505*^9}, {3.568709169082535*^9, 
   3.568709190216707*^9}, {3.568709222113379*^9, 3.568709240498296*^9}, {
   3.5687096384989557`*^9, 3.568709658822268*^9}, {3.568709708805358*^9, 
   3.5687097198461323`*^9}, {3.568709750327177*^9, 3.568709765069841*^9}, {
   3.5687098641220284`*^9, 3.568709969121193*^9}, {3.568710050983673*^9, 
   3.568710051733755*^9}, {3.568710636464629*^9, 3.568710648947407*^9}, {
   3.568710720032567*^9, 3.568710727878992*^9}, {3.5687107712755337`*^9, 
   3.568710771617919*^9}, {3.568712170711479*^9, 3.568712173336546*^9}, {
   3.568712281227392*^9, 3.56871228283016*^9}, 3.5687123649242163`*^9, {
   3.5687124075095043`*^9, 3.568712411649015*^9}, {3.568712526345059*^9, 
   3.56871254640275*^9}, {3.56871261216849*^9, 3.568712622581583*^9}, {
   3.568712706934277*^9, 3.568712707015244*^9}, {3.5687128450475063`*^9, 
   3.568712845169449*^9}, {3.5687130269315653`*^9, 3.5687130885133657`*^9}, {
   3.568713187375864*^9, 3.568713224226201*^9}, {3.568718422686071*^9, 
   3.568718427622281*^9}, {3.568718481357892*^9, 3.568718502283223*^9}, {
   3.5687186383389597`*^9, 3.568718651821443*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox["9", "10"], ",", 
     "1.3782945519565313176270495557671391704`16.", ",", 
     "2.28054913842277020461375194455553043875`6.", ",", 
     "1.65461666752252693441922450324816837369`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["91", "100"], ",", 
     "1.41354660412133324801475010808696785172`16.", ",", 
     "2.32631189434972175355039788067625662309`6.", ",", 
     "1.64572705814377262954398809801881531435`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["23", "25"], ",", 
     "1.45273890045660365726514794297556452849`16.", ",", 
     "2.37807117678239538872714382347414341171`6.", ",", 
     "1.63695704440416293352250418085507069831`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["93", "100"], ",", 
     "1.49693033939962227753986291277448353774`16.", ",", 
     "2.43745755677514638249783995531687518031`6.", ",", 
     "1.62830393146600515047633230290645814208`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["47", "50"], ",", 
     "1.54767163071790387774520930061270863236`16.", ",", 
     "2.50686451104633255734388376336676107991`6.", ",", 
     "1.61976511120999026322517236203618738822`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["19", "20"], ",", 
     "1.60736675775338263657689752885438082671`16.", ",", 
     "2.59001123087450121919453609864484453321`6.", ",", 
     "1.61133805858630626401593877669684133616`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["24", "25"], ",", 
     "1.68004292736536739315157500107751085579`16.", ",", 
     "2.69314296474059290632051828399801286328`6.", ",", 
     "1.60302032815552072369955185713834407675`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["97", "100"], ",", 
     "1.77324956916956633618776676288335796453`16.", ",", 
     "2.82799534887690424947642795404119854592`6.", ",", 
     "1.59480955080749732697594275530062626832`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["49", "50"], ",", 
     "1.9039351571443012807758097399629035815`16.", ",", 
     "3.02098044557115520001626086074343343198`6.", ",", 
     "1.58670343064745028118752396172222601826`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["99", "100"], ",", 
     "2.12618044709748639274810783574562976464`16.", ",", 
     "3.35660052336119237603347042831429732752`6.", ",", 
     "1.57869974203901172126136046864597496931`6."}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.568710476677608*^9, 3.568710591104665*^9, 3.5687106504675837`*^9, 
   3.568710728536708*^9, 3.56871077246695*^9, 3.568712185859404*^9, {
   3.568712275247511*^9, 3.568712284534175*^9}, 3.568712365876719*^9, 
   3.5687124124181557`*^9, 3.568712488361836*^9, 3.568712554285619*^9, 
   3.5687126238331547`*^9, {3.5687126839849043`*^9, 3.5687127078747873`*^9}, 
   3.568712846212552*^9, 3.5687130443203*^9, {3.568713081248291*^9, 
   3.568713089060913*^9}, 3.5687131938375807`*^9, 3.5687132249082403`*^9, 
   3.568718428532125*^9, {3.5687184847681932`*^9, 3.568718503146718*^9}, {
   3.568718642487908*^9, 3.568718652568664*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data", "=", " ", 
  RowBox[{"Prepend", "[", 
   RowBox[{"data", ",", 
    RowBox[{"{", 
     RowBox[{
     "\"\<k\>\"", ",", "\"\<K/K'\>\"", ",", "\"\<K\>\"", ",", "\"\<K'\>\""}], 
     "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5687104844456787`*^9, 3.568710582443858*^9}, {
  3.568710612617703*^9, 3.568710623737156*^9}, {3.5687121637454023`*^9, 
  3.568712163818512*^9}, {3.5687123485069227`*^9, 3.568712350094604*^9}, {
  3.5687125502100487`*^9, 3.568712551871252*^9}, {3.568713171197789*^9, 
  3.568713172999941*^9}, {3.5687184090422792`*^9, 3.56871841013622*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"k\"\>", ",", "\<\"K/K'\"\>", ",", "\<\"K\"\>", 
     ",", "\<\"K'\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["9", "10"], ",", 
     "1.3782945519565313176270495557671391704`16.", ",", 
     "2.28054913842277020461375194455553043875`6.", ",", 
     "1.65461666752252693441922450324816837369`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["91", "100"], ",", 
     "1.41354660412133324801475010808696785172`16.", ",", 
     "2.32631189434972175355039788067625662309`6.", ",", 
     "1.64572705814377262954398809801881531435`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["23", "25"], ",", 
     "1.45273890045660365726514794297556452849`16.", ",", 
     "2.37807117678239538872714382347414341171`6.", ",", 
     "1.63695704440416293352250418085507069831`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["93", "100"], ",", 
     "1.49693033939962227753986291277448353774`16.", ",", 
     "2.43745755677514638249783995531687518031`6.", ",", 
     "1.62830393146600515047633230290645814208`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["47", "50"], ",", 
     "1.54767163071790387774520930061270863236`16.", ",", 
     "2.50686451104633255734388376336676107991`6.", ",", 
     "1.61976511120999026322517236203618738822`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["19", "20"], ",", 
     "1.60736675775338263657689752885438082671`16.", ",", 
     "2.59001123087450121919453609864484453321`6.", ",", 
     "1.61133805858630626401593877669684133616`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["24", "25"], ",", 
     "1.68004292736536739315157500107751085579`16.", ",", 
     "2.69314296474059290632051828399801286328`6.", ",", 
     "1.60302032815552072369955185713834407675`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["97", "100"], ",", 
     "1.77324956916956633618776676288335796453`16.", ",", 
     "2.82799534887690424947642795404119854592`6.", ",", 
     "1.59480955080749732697594275530062626832`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["49", "50"], ",", 
     "1.9039351571443012807758097399629035815`16.", ",", 
     "3.02098044557115520001626086074343343198`6.", ",", 
     "1.58670343064745028118752396172222601826`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["99", "100"], ",", 
     "2.12618044709748639274810783574562976464`16.", ",", 
     "3.35660052336119237603347042831429732752`6.", ",", 
     "1.57869974203901172126136046864597496931`6."}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.568712192386394*^9, 3.5687122874061203`*^9, 3.5687123695819397`*^9, 
   3.568712414470209*^9, 3.5687124906878233`*^9, 3.568712556185031*^9, 
   3.5687126261378613`*^9, {3.5687126859858227`*^9, 3.568712711418316*^9}, 
   3.568712850723248*^9, 3.568713054293536*^9, 3.568713091023823*^9, 
   3.568713196135981*^9, 3.56871322702878*^9, 3.568718433847591*^9, 
   3.568718507423605*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Grid", "[", 
   RowBox[{"data", ",", 
    RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.568709335802977*^9, 3.568709474196678*^9}, {
  3.568710057662903*^9, 3.5687101528840733`*^9}, {3.568710321389206*^9, 
  3.568710404586026*^9}, {3.568712724109838*^9, 3.568712730287365*^9}, {
  3.568712818679247*^9, 3.568712828321525*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"k\"\>", "\<\"K/K'\"\>", "\<\"K\"\>", "\<\"K'\"\>"},
    {
     FractionBox["9", "10"], "1.3782945519565313176270495557671391704`16.", 
     "2.28054913842277020461375194455553043875`6.", 
     "1.65461666752252693441922450324816837369`6."},
    {
     FractionBox["91", "100"], "1.41354660412133324801475010808696785172`16.",
      "2.32631189434972175355039788067625662309`6.", 
     "1.64572705814377262954398809801881531435`6."},
    {
     FractionBox["23", "25"], "1.45273890045660365726514794297556452849`16.", 
     "2.37807117678239538872714382347414341171`6.", 
     "1.63695704440416293352250418085507069831`6."},
    {
     FractionBox["93", "100"], "1.49693033939962227753986291277448353774`16.",
      "2.43745755677514638249783995531687518031`6.", 
     "1.62830393146600515047633230290645814208`6."},
    {
     FractionBox["47", "50"], "1.54767163071790387774520930061270863236`16.", 
     "2.50686451104633255734388376336676107991`6.", 
     "1.61976511120999026322517236203618738822`6."},
    {
     FractionBox["19", "20"], "1.60736675775338263657689752885438082671`16.", 
     "2.59001123087450121919453609864484453321`6.", 
     "1.61133805858630626401593877669684133616`6."},
    {
     FractionBox["24", "25"], "1.68004292736536739315157500107751085579`16.", 
     "2.69314296474059290632051828399801286328`6.", 
     "1.60302032815552072369955185713834407675`6."},
    {
     FractionBox["97", "100"], "1.77324956916956633618776676288335796453`16.",
      "2.82799534887690424947642795404119854592`6.", 
     "1.59480955080749732697594275530062626832`6."},
    {
     FractionBox["49", "50"], "1.9039351571443012807758097399629035815`16.", 
     "3.02098044557115520001626086074343343198`6.", 
     "1.58670343064745028118752396172222601826`6."},
    {
     FractionBox["99", "100"], "2.12618044709748639274810783574562976464`16.",
      "3.35660052336119237603347042831429732752`6.", 
     "1.57869974203901172126136046864597496931`6."}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.568709350665916*^9, 3.568709430433717*^9}, 
   3.5687094748869677`*^9, {3.5687100697473993`*^9, 3.568710153564377*^9}, {
   3.5687103320595818`*^9, 3.568710405245739*^9}, 3.568710534824666*^9, {
   3.568710565022193*^9, 3.568710595922489*^9}, 3.568710654757844*^9, 
   3.568710734471526*^9, 3.568710785227316*^9, 3.5687121945540037`*^9, 
   3.568712292470983*^9, 3.568712371762433*^9, 3.5687124163207006`*^9, 
   3.568712492712858*^9, 3.5687125581273127`*^9, 3.568712628538825*^9, {
   3.568712688122006*^9, 3.568712731001046*^9}, {3.568712828980555*^9, 
   3.568712855828459*^9}, 3.568713056432863*^9, 3.568713093085847*^9, {
   3.5687131991128674`*^9, 3.568713228720398*^9}, 3.568718436246664*^9, 
   3.568718509011712*^9}]
}, Open  ]]
},
WindowSize->{1087, 1091},
WindowMargins->{{21, Automatic}, {26, Automatic}},
FrontEndVersion->"9.0 for Linux x86 (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 610, 15, 55, "Input"],
Cell[1192, 39, 137, 1, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1366, 45, 285, 7, 32, "Input"],
Cell[1654, 54, 3975, 72, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5666, 131, 1955, 39, 32, "Input"],
Cell[7624, 172, 3207, 73, 266, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10868, 250, 600, 12, 32, "Input"],
Cell[11471, 264, 3084, 73, 209, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14592, 342, 421, 9, 55, "Input"],
Cell[15016, 353, 2939, 58, 329, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
